object Form1: TForm1
  Left = 346
  Top = 305
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21306#38388#27573#21508#27004#23618#25353#26085#27719#24635
  ClientHeight = 103
  ClientWidth = 862
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 0
    Width = 862
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Color = clSkyBlue
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 862
    Height = 97
    BevelInner = bvLowered
    ParentBackground = False
    TabOrder = 0
    object Memo1: TMemo
      Left = 2
      Top = 2
      Width = 858
      Height = 93
      Align = alClient
      Color = clCream
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      Lines.Strings = (
        
          'select a.jmddate RQ,b.mfcode,b.mfcname BMMC,round(a.xssr/10000,2' +
          ') xshj from ( '
        'select ta.JMDDATE, mfpcode JMDDEPT, sum(ta.XSSR) xssr'
        '           from JXCMFRAMEDAY ta,dbusrpub.manaframe'
        '  where ta.JMDMARKET = '#39'205'#39
        '           and ta.JMDDATE >= TO_DATE(:DATE1, '#39'YYYY-MM-DD'#39')'
        '           and ta.JMDDATE <= TO_DATE(:DATE2, '#39'YYYY-MM-DD'#39') '
        '            and ta.jmdmfid = mfcode'
        '          group by JMDDATE, mfpcode'
        ') a,dbusrpub.manaframe b'
        'where a.JMDDEPT=b.mfcode and b.mfcatgroup=0')
      ParentFont = False
      PopupMenu = PopupMenu2
      ScrollBars = ssBoth
      TabOrder = 0
      OnDblClick = Memo1DblClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 3
    Width = 862
    Height = 94
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel2'
    ParentBackground = False
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 2
      Width = 854
      Height = 86
      Align = alClient
      Color = clCream
      DataSource = DataSource2
      ShowSerialNo = False
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Tahoma'
      FooterFont.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PopupMenu1
      ReadOnly = True
      SumList.Active = True
      SumList.VirtualRecords = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 3
    Width = 862
    Height = 81
    Align = alClient
    BevelInner = bvLowered
    ParentBackground = False
    TabOrder = 2
    OnClick = Panel3Click
    object Button2: TButton
      Left = 760
      Top = 16
      Width = 89
      Height = 25
      Caption = 'Change_User'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      Visible = False
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 416
      Top = 17
      Width = 242
      Height = 54
      Caption = #29983#25104#25968#25454#24182#36716#23384#20026'Excel'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 664
      Top = 8
      Width = 120
      Height = 33
      Caption = #36716#23384#20026'Excel'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Visible = False
      OnClick = Button4Click
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 393
      Height = 65
      Caption = #36873#25321#26085#26399#21306#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      object Label1: TLabel
        Left = 161
        Top = 24
        Width = 24
        Height = 28
        AutoSize = False
        Caption = #8804
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -24
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 219
        Top = 24
        Width = 20
        Height = 29
        Caption = #8804
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -24
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 184
        Top = 31
        Width = 34
        Height = 16
        Caption = #26085#26399
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DateTimePicker1: TDateTimePicker
        Left = 12
        Top = 26
        Width = 145
        Height = 27
        CalColors.TrailingTextColor = cl3DLight
        Date = 39868.724300844910000000
        Time = 39868.724300844910000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
        ParentFont = False
        TabOrder = 0
      end
      object DateTimePicker2: TDateTimePicker
        Left = 240
        Top = 26
        Width = 144
        Height = 27
        CalColors.TrailingTextColor = cl3DLight
        Date = 39868.724333217590000000
        Time = 39868.724333217590000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
        ParentFont = False
        TabOrder = 1
      end
    end
    object Button1: TButton
      Left = 782
      Top = 56
      Width = 75
      Height = 19
      Caption = #21387#32553#20020#26102#24211
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 84
    Width = 862
    Height = 19
    Panels = <>
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = OraQuery1
    Left = 144
    Top = 64
  end
  object OraQuery1: TOraQuery
    Session = OraSession1
    SQL.Strings = (
      
        'select a.jmddate RQ,b.mfcname BMMC,round(a.xssr/10000,2) xshj fr' +
        'om ( '
      'select ta.JMDDATE, mfpcode JMDDEPT, sum(ta.XSSR) xssr'
      '           from JXCMFRAMEDAY ta,dbusrpub.manaframe'
      '  where ta.JMDMARKET = '#39'205'#39
      '           and ta.JMDDATE >= TO_DATE('#39'2009-04-1'#39', '#39'YYYY-MM-DD'#39')'
      
        '           and ta.JMDDATE <= TO_DATE('#39'2009-04-16'#39', '#39'YYYY-MM-DD'#39')' +
        ' '
      '            and ta.jmdmfid = mfcode'
      '          group by JMDDATE, mfpcode'
      ') a,dbusrpub.manaframe b'
      'where a.JMDDEPT=b.mfcode and b.mfcatgroup=0')
    Left = 112
    Top = 64
  end
  object OraSession1: TOraSession
    Username = 'dbusrmkt205'
    Password = 'futuremkt'
    Server = 'M205_DB'
    Connected = True
    ConnectDialog = ConnectDialog1
    LoginPrompt = False
    Left = 56
    Top = 64
  end
  object PopupMenu1: TPopupMenu
    Left = 96
    Top = 34
    object N1: TMenuItem
      Caption = #23548#20986'...'
      OnClick = N1Click
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = '*.xls|*.xls'
    Left = 232
    Top = 8
  end
  object PopupMenu2: TPopupMenu
    Left = 40
    Top = 34
    object SQL1: TMenuItem
      Caption = #35013#20837'SQL'
      OnClick = SQL1Click
    end
    object cls1: TMenuItem
      Caption = #28165#31354#25991#26412
      OnClick = cls1Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.SQL'
    Filter = '*.SQL|*.SQL'
    Options = [ofHideReadOnly, ofExtensionDifferent, ofEnableSizing]
    Left = 280
    Top = 8
  end
  object ConnectDialog1: TConnectDialog
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    Left = 8
    Top = 64
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    Left = 368
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 400
    Top = 16
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 192
    Top = 8
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tempdb.mdb;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 176
    Top = 64
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = '*.xls'
    Filter = '*.xls|*.xls'
    Left = 472
    Top = 11
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = '192.168.40.93:D:\My_Documents\pbvm90.dll'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    Left = 632
    Top = 59
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Left = 728
    Top = 59
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    Left = 680
    Top = 59
  end
end
